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EDITORIAL 


Apenas han transcurrido unos decenios (más de tres pero menos 
de cuatro), desde la aparición del primer “ordenador” totalmente 
electrónico, el Eniac, que funcionaba con válvulas de vacio y 
ocupaba varias aulas de la Universidad de Pensilvania. 

Sin embargo, hoy los niveles de integración parecen no tener 
límites y ello nos ha conducido a la aparición de pequeños 
ordenadores personales a precios tan asequibles que están 
barriendo el mercado. 

Esto, unido a los grandes avances en temas de programación, 

hace que cada día cobre más 

importancia el microordenador personal. 

Por ello, nosotros pensamos que actualmente es necesario conocer 
el mundo del ordenador, saber manejarlo, ya que éste puede ser 
usado como un instrumento intelectual, de distracción y de relax 
mental, a través de la infinita variedad de programas posibles. 

En este número encontrarás diferentes tipos de programas que 
pondrán a prueba tus reflejos mentales y tu dominio de la máquina. 
Esperamos que te guste. 

Hasta el próximo mes. 


Edita: Editorial G.T.S., S. A. C/. Bailén, 20. 1.* Izda. 28005-MADRID. 
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Publicidad: Bailén, 20-4 Iza.-28005-Madrid. Fotocomposición: Gráficas Futura. Imprime: Gráficas Fugtura 
Soc. Coop. Ltda. Villafranca del Bierzo, 21-23. Pol. Ind. Cobo Calleja. Fuenlabrada (Madrid). Producción cas- 
settes: Iberofón, S. A. Distribuye: R.B.A. Promotora de Ediciones, S. A. Depósito Legal: AV-235-1985. 
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1.21 30 S. SOBRE TOKIO 


S el momento culminante de la 

guerra en el Pacífico y todo 
lo que ocurra depende de tu misión 
que deberás llevar acabo al mando 
de tu B-25 Michael. 

Tu misión consiste en lo siguien- 
te: Una vez que te encuentras enci- 
ma de Tokio tendrás que ir bombar- 
deando todas las casas, ya que só: 
lo cuando hayas destruido todas 
pasarás a otro sector para seguir 
destruyendo. Pero esto noes todo, 
ya que tienes que estar atento a un 
avión enemigo de reconocimiento 
que en cualquier momento puede 
chocar contigo y destruirte, pero 
también hay bombas teledirigidas 
que han aparecido de forma inespe- 
rada como el arma secreta del Ja- 
pón, por lo que tendrás que des- 
truirlas al igual que el avión, ya que 
te perseguirán a muerte. 

Para dirigir tu bombardero tienes 
las siguientes teclas: 


Q— Arriba 
A— Abajo 
N— Bomba 


M— Ametralladora 
¡Suerte y buena caza! 


y 


2.1 URSUSS 


AS naves del planeta oscuro 
== están invadiendo tu planeta 
en el ciclo de Némesis. Dispones de 
un caza último modelo con el que 
tienes que destruir dichas naves. 
Estás en el interior del caza, por 
lo que todo lo que ves está en pers- 
pectiva, incluso el disparo. Una na- 
ve enemiga se te pondrá enfrente 
de tí, y seirá moviendo para dificul- 
tarte la acción, pero si tú logras te- 
nerla en el centro de tu pantalla de 
scanner, podrás disparar y alcan- 
zarla con tus dos poderosos lasers, 
pero si por un casual malgastar mu- 
chos disparos o has perdido mu- 
cho tiempo la nave agotará todas 
sus reservas de energía, ya que vas 
a la máxima potencia y gasta mu- 
cho. 
Tu caza se maneja con los si- 
guientes controles: Q - Arriba. A - 
Abajo. O - Izquierda. P - Derecha. 


M - Fuego. 
R 


¡¡Suerte!! 





3.21 TORRETA 


ÓN a prueba tus reflejos con 
este juego que no te dejará 
descansar ni un sólo instante. 

Te encuentras en el centro de la 
pantalla con una torreta que puede 
girar en cualquiera de las dos direc- 
ciones (izquierda-derecha) y te vie- 
nen unos enormes gusanos babo- 
sos que intentan llegar a tu torreta 
para derretirla y comérsela, por eso 
tú tienes que dirigir la torreta a los 
gusanos que tú veas que son más 
largos y dispararlos para que vuel- 
van asustados a su guarida, ya que 
a estos gusanos de las profundida- 
des la luz de tu disparo laser les cie- 
ga y asusta. Tienes que mantener- 
te el mayor tiempo posible evitan- 
do que cualquiera de los ocho gu- 
sanos que te asedian lleguen a tu 
posición con las siguientes teclas: 
O - Giro Izquierda. P - Giro Derecha. 
M - Disparo Laser. 

Animo, y logra resistir el asedio 
el mayor tiempo posible. 


R 


4.21 PRECISION 


| el anterior juego puso a prue- 

ba tus reflejos, éste pondrá a 
prueba además tu puntería, ya que 
se trata de dar con una torre laser 
muy pequeña que se encuentra en 
la parte inferior de la pantalla a la 
maraña de naves enemigas que se 
acercan, ya que si no las matas 
ahora luego no podrás con su enor- 
me potencia de tiro y te destruirán, 
por lo que tienes que lograr destruir 
el mayor número posible en el es- 
caso margen de tiempo de que dis- 
pones, cosa que te lo pondrá muy 
difícil, ya que tienes que correr a to- 
da velocidad, y como las naves se 
encuentran a gran distancia tienes 
que afinar mucho la puntería, ya 
que la nave sólo será un pequeño 
punto en el horizonte. 

Tu torreta laser se dirige con las 
siguientes teclas: O - Izquierda Nor- 
mal. Q - Izquierda Rápida. O - Dere- 
cha normal. W - Derecha Rápida. 

Cuando acabe el tiempo sete di- 
rán los puntos que has conseguido 
en relación a tu precisión como ti- 
rador. 

¡¡SUERTE!! 


Sl 


5.2/ TIRO AL PATO 


YA ha llegado la feria ambulan- 
8 te de todos los veranos!, y tú 
como siempre te has dirigido al 
puesto de tiro al pato, donde po- 
drás demostrar tu pericia como ti- 
rador con una escopeta de feria. 

Tienes que destruir los patitos 
que aparecen en pantalla, pero con 
mucho cuidado, ya que el señor 
Martínez, el dueño del puesto, an- 
da merodeando detrás del mostra- 
dor y lo puedes matar con tu dispa- 
ro, y semejante desastre haría que 
perdieras el juego, pero no menos 
sería que mataras a el público que 
está mirando de un lado a otro de- 
lante de los patitos, ya que si ma- 
tas a alguno morirás, por lo que an- 
tes de disparar tienes que cerciorar- 
te de que tu disparo pasará entre al- 
gún hueco que formen. 

Para matar el mayor número de 
patos posibles y así regalarle la mu- 
ñeca más bonita a tu novia tendrás 
que manejar con habilidad las si- 
guientes teclas: O - Izquierda. P - 
Derecha. M - Disparo. 

Sé el mejor, pero sin armar nin- 
guna escabechina. 

¡¡¡SUERTE!!! 





6./ JOYERIA 


STAS en el barrio más rico de 

Madrid, y en una sola manzana 
hay cuatro de las más prestigiosas 
joyerías de la ciudad, pero tú te en- 
cuentras sin blanca, y tienes que lo- 
grar coger la joya más valiosa de 
cada una de ellas, para eso tienes 
que entrar en una, luego coger la jo- 
ya, e ir corriendo por el pasillo que 
está lleno de guardias que intentan 
cogerte, pero no todo es tan fácil, 
ya que tienes un tiempo para efec- 
tuar el robo, antes de que el siste- 
ma de alarmas se ponga a sonar y 
te descubran perdiendo así la par- 
tida. 

Pero si logras hacerlo tendrás 
que repetir tu hazaña en menos 
tiempo todavía, y así sucesivamen- 
te. 

Las teclas son: Q- Arriba. A- 
Abajo. O - Izquierda. P - Derecha. 

Mucha suerte para que no pases 
en la cárcel el resto de tu vida. 


Sl 


1.7 ENERGIA 


ARA culminar tú último inven- 

to y demostrar que la electrici- 
dad existe tienes que salir una no- 
che de tormenta y coger los rayos 
eléctricos y recogerlos en una ba- 
tería que los almacena, pero a esta 
batería si le cae el agua de la tor- 
menta hará cortocircuito, y enton- 
ces explotarás por los aires y mori- 
rás, pero mientras más rayos cojas 
más puntos se te darán, pero tam- 
poco dejes escapar muchos, ya que 
entonces la batería no se cargará 
lo suficiente y todo tu experimento 
habrá fallado. 

Las teclas son: O - Izquierda. Q - 
Izquierda Rápida. P - Derecha. W - 
Derecha Rápida. 

¡Suerte!, y que una gota de agua 
no te fastidie el experimento. 





y 


2.21 NODRIZA 


U regimiento está aislado en 

una selva del amazonas y por 
eso la base central te ha enviado 
unas provisiones que va arrojando 
desde un avión nodriza, pero como 
no tienen paracaidas, tú tienes que 
ir cogiendo los bártulos desde una 
pequeña avioneta que lográisteis 
salvar después de la gran batalla. 
Por eso tienes que lograr coger los 
más posibles, ya que si pierdes mu- 
chos, tu regimiento pasará hambre 
y morirá. Los paquetes son de dis- 
tintas clases, pero deberás coger- 
los todos. 

Las teclas de tu avión son: O - 
Izquierda. Q - Izquierda Rápida. P - 
Derecha. W - Derecha Rápida. 

Mientras más cojas mejor para tÍ 

y para tu regimiento. 

¡¡¡SUERTE!!! 


o 


3./ CASIOPEA 


ON tu nave de pasajeros tienes 
que llegar hasta tu base para 
depositarlos sanos y salvos en ella, 
pero como está situada en saturno, 
tienes que atravesar todo el anillo 





formado por asteroides enormes 
que te destruirán, pero a cambio tie- 
nes unas latas de gasolina que te 
proporcionarán energía para llegar 
victorioso a tu base. 

Las teclas son: Q- Arriba. O - 
Izquierda. P - Derecha. 

Si lograr llegar hasta abajo, todo 
empezará de nuevo y seguirás ba- 
jando pasajeros. 


Suerte 
Je 


4./ ESTIBAR 


Ú manejas una máquina de 

transportes de cajas y tienes 
que coger todas las que puedas sin 
que lleguen a tocar al suelo, pero 
ten mucho cuidado, ya que si tienes 
una en la máquina y te caen más 
habrás perdido, ya que el jefe se ha- 
brá enfadado contigo y te despedi- 
rá, una vez que has cogido una ca- 
ja tienes que llevarla corriendo al al- 
macén, ya que no puedes dejar que 
se te caigan muchas cajas, ya que 
entonces habrás perdido también. 
Pero para facilitarte la acción, la 


máquina tiene dos velocidades (len- 


ta y rápida). 

Los controles son: O - Izquierda. 
Q - Izquierda Rápida. P - Derecha. 
W - Derecha Rápida. 

Ánimo, y que no te tengan que 
despedir el primer día. 





o 


5./ STARFIRE 


E trata de un auténtico duelo 

en el espacio, ya que solamen- 
te estás tú y tu adversario y los dos 
os disparáis sin cesar. 

Tu adversario intentará aniquilar- 
te lo más pronto posible, pero tú tie- 
nes que evitarlo y matarle a él, 
mientras más veces le des más 
puntos se te darán, pero tienes que 
tener mucho cuidado, ya que no de- 
jará que te pongas debajo de él pa- 
ra dispararle. 


Los controles de tu nave de com- 
bate son: O - Izquierda. P - Derecha. 
M - Dispara. 

¡¡Suerte!!, tu honor está en jue- 
go. 


Sí 


6./ LA LLUVIA 


IENES que recoger todos los 
Í  granizos que puedas, pero sin 
que te dé el agua, ya que entonces 
las articulaciones de tu robot se 
oxidarán por completo y habrás 
perdido, pero tampoco tienes que 
perder más de dos granizos, ya que 
entonces habrás perdido al probar- 
se que tu robot no tiene reflejos su- 
ficientes para cumplir el trabajo en- 
comendado. 

Para ponértelo mucho más difícil 
todavía tienes que tardar el menor 
tiempo posible, ya que pasado un 
tiempo el granizo se derretirá y ya 
no te servirá para nada. 

Los controles de tu nuevo robot 
son: O - Izquierda. P - Derecha. Q - 

Izquierda Rápida. W - Derecha Ráa- 
pida. 

Y ya podrás estar recogiendo ba- 
jo la lluvia: ¡Suerte! 





R 


7.2] LA FRONTERA 


CABAS de intentar pasar ¡legal- 

mente la frontera de EE.UU. 
con México, pero la policía fronte- 
riza te ha pillado y ha llamado a las 
autoridades mejicanas. 

Los policías vienen a cogerte pa- 
ra encerrarte, pero ellos no saben 
que tú tienes un fusil, con los que 
puedes matarlos antes de que lle- 
guen a la frontera, que esta situa- 
da junto donde estás tú, atravesan- 


O 


do el centro de la pantalla de arri- 
ba a abajo. 
Si alguna de las dos policías lle- 
gan estarás perdido, pero puedes 
defenderte utilizando las siguientes 
teclas: Q-Arriba. A- Abajo. W- 
Arriba rápido. S - Abajo rápido. O - 
Izquierda. P - Derecha. M - Fuego. 
¡¡¡Suerte!!! 


L 


8.1 ARTIFICIEROS 


=_pABEIS encontrado una bomba 
¡Fl en el hotel Palace!, pero hay un 
montón de cables y no sabes cuál 
de ellos puede desconectar la bom- 
ba para evitar la matanza de tanta 
gente inocente que hay en el hotel. 


Para eso, tú tienes que ir lo más 
deprisa posible, (ya que si se ago- 
ta el tiempo la bomba estallará) por 
todas las habitaciones y pasillos 
del hotel, y cada vez que pases por 


un cable lo romperás, y ganarás la 
partida. Si por casualidad y debido 
al azar tardases mucho en dar con 
el cable todos moriréis, pero como 
este juego es un poco de azar, pue- 
des tener la suerte de encontrarlo 
rápido y ganar la partida, ya que en- 
tonces serás condecorado por el je- 
fe de artificieros, que te ascenderá 
y te subirá el sueldo. 

Las teclas son: Q- Arriba. P- 
Abajo. O - Izquierda. P - Derecha. 

¡Mucha suerte!, ya que te va a 
hacer falta 








— LIBRERIA DE SOFTWARE: 


Este mes traemos a nuestras páginas unos trucos que te ayudarán a conocer mejor el fichero 
de atributos (ATRIBUTE FILE) de tu Spectrum. 
Este fichero comienza en la dirección de memoria 22528 y finaliza en la dirección de memoria 


23295. 


Los valores contenidos en estas posiciones de memoria es realmente el ATTR del caracter que 


representa. 


El primero de los programas rellena todo el fichero con valores aleatorios: 
10 FORA = 22528 to 23295. 


20 POKE A, RND*2505. 
30 NEXT A. 


El segundo de ellos realiza la misma operación que el anterior, pero no en direcciones conse- 


cutivas: 


10 POKE 22528 + RND*767,AND*255. 


20 GOTO 10. 











TE" TNKE ES 2%" TH 
EN: 60. TOC 9999 


30 S. SOBRE TOKIO 


PAUSE 0: CELS 


ZULES 
3 PRINT AT 10,10;"f+ARA LA CINTA" 
4 PAUSE 0 
SBS 
100 BORDER Y 
110 PAPER 5 
120 ELS 
130 INK 0 
140 PRINT AT 10,2;"FULSA UNA TECLA *: 
150 LET =<=10 
155-LETy=5 
157 .LET.d1=0: LET d2=0 
160 LET aé=" 
182 LET ot=1 
154 LET r=30 


: BEEF 0.3,20 





Vo faro ra rr f/f 








Dd 
D 
D 
S 


156 LET t10 
188 LET c=5 
170 LET d=20 
142; LET +2=0 
174. LET $f1=0 
176 LET p=0 


1/8 LET en=50 

¿00 PRINT AT 0,0:5"+UNTOS." 

210 PRINT AT 0,17:"ENERGIA." 

2530 PRINT— INK 4;AT 21,07" 

255 PRINT INE 7;48T 2,03" 

300 -LET. x1=x=x 

302 PRINT AT 0,8:F 

3504 IF EN=953 THEN FRINT AT 0,26;" y 

306 IF EN=3 THEN  PRINT AT 0,26;" A 

208 FRINT AT 0,26;EN 

310 LET yli=y 

230 1F INKEY+="a" AND x<18 THEN LET x=x+1 

240 1F INFEY+="q" AND x>53 THEN  LET x=x-1 

390: PRINTIAT «iytg" o" 

9332 IF x=c AND (y=d+1 OR y=d OR y=d-1) THEN (G0 TO 5000 
360 IF x=t AND (y=r+1 OR y=r OR y=r-1) THEN (60 TO S000 
SO CIF. X15%X THEN PRINTO IINK 1SAT x.y” 0" 

IO IF RIA THEN PRENE-JINKLESAT o ys" 

379 —LE-1=x THEN --PRINFT-—-INK-158T - xy" —" 

398 IF di=1 THEN LET d2=0: 60 TO 2000 

600 1F INKEYS="m" THEN: LET ensen-5; BEEP 0.002,20: BEEP 0.003,30: LET di=1: LE 
T d2=1: GO TO 2000 

610 BEEP 0.002,10 

640 IF f1=1 THEN LET £f2=0: GO TO 3000 

650 IF INKEY+$="n" THEN LET ens=en-5: BEEF 0.002,30: BEEP 0.004,10: LET fi=1: LE 
E £z=1 1.601 TO. 3000 

700 LET ot=o0t+2 

¿10 IF ot=149 THEN LET ot=1 

(209 PRINT  INK 4;AT 20,0O;a*(ot TO ot+30) 

¿30 IF en=O THEN GO TO 5000 

800 LET ti=t 

10 LET ri=r 

AR A e | 

830 LET wer=20XRND 

5640 IF wer<10 AND t+3 THEN LET t=t-1 

8530 IF wer-10 AND t<19 THEN LET t=t+1 

eo IF r=i1 THEN LET r=30 

SUPRIME. AEREA 

ALO” ERIN CIN 35 AT Est. 

900 LET cl=c 

910 LET d4=d 

920 LET d=d-1 

930 1F-x>c- THEN - LET-c=c+1 

PIDE NECE THEN. LET-c=E=1 

940 IF d=1 THEN  LET d=30 

745 PRINT AT cí,d45"  " 

FOO -PRINT CENK:2:8T asa" 

1000 GO TO 500 

000 IF d2=1 THEN —LET g1i=x: LET g2=y+2 

2003 LET gll=g1 

¿007 LET g21=32 
ZO20 LET 92=92+2 

2040 PRIMNT.6T. 9ll,9g213".." 
2042 1F gl=c AND (g2=d OR g2=d-1 OR g2=d+1) THEN LET di=0: LET p=p+10: LET en=e 
nos PRINT- AT ecsdz" | ": BEEP 0.02,23: BEEP 0.01,12: PRINT AT ec,sds" |": LET d=30: 
LET c=3+INT (10XRND):¿ GO TO 601 

2044 IF glí=t AND (g2=r OR g2=r+1 OR g2=r-1) THEN LET di=0: LET p=p+10: LET en=e 
Na PRINT AR tp": BESEP-0.02423 31 BEEP-0.01,12:-PRINT-AT-taura" a E, 
¿ LET t=>+INT (10XARNO): GO TO 601 

2050 PRINT  INK 6;4T 91,923" " 

2070 IF g2=29 THEN FPRINT AT g1,923" ": LET di=0 
2100 GO TO 601 


3000 
3005 
3007 
3O20 
3040 
3042 
n+5: 

LET 
3044 
n+>os 


: LET 


3046 
qe 
3050 
3070 
3100 
3000 
5010 
SOZO 


5030 
5040 
5050 
3060 
5070 
53080 
5100 
9998 
9999 


MN +10. 


100 
110 
120 
130 
140 
150 
1352 
134 
1500 
150 
152 
154 
230 
2 
260 
264 
270 
280 
ZO 


202 


cla O a 


300 


IF £2=1 THEN 
LET hii=hi 
LET h2i=h2 
LET hi=hi+1 
PRINT.AT¡hl1.H210%:” 

IF hi=c AND (h2=d OR h2=d-1 OR h2i=d+1) 0 
PRINT AT Esas ": BEEP 0.02,233; BEEP 0.01,121 PRINT ATjcydas"i is 
c=S+ INT (1OXRNOD): 60 TO 601 — 

IF hi=t AND (h2=r OR h2=r+1 OR hz2=r-1) 


LET hi=x+1: LET h2=y 


PRINT AT t,ri" o "2: BEEP 0.02,23: BEEP 0.01,12: PRINT AT t,r;" 
t=5+INT (10Y*%ND): GO TO 601 
IF CODE SCREEN$ (h1,h2)=0 THEN PRINT AT hi,h2;" 


LET en=en+5: LET p=p+10: PRINT AT hl,h2;" ": LET f1=0: GO TOD 670 


PRINT —INK 65487 h1,h2;" ” 

IF hi>=20 THEN PRINT AT h1,h23" ": LET Ff1=0 
60 -TO0-£70 

BEEP 1,20 

CcLS 


PRINT AT 10,0;" EL JUEGO HA TERMINADO 

BEEP 1,1: BEEP 1,3: BEEP 1,5: BEEP 1,6: BEEP 1,7: BEEP 1,6 

CLS 

PRINT AT 10,5:"*TRA PARTIDA?" 

IF INKEY*$="s" THEN GO TO 100 

IF INKEY3="n" THEN RANDOMIZE USR O 

BEEP 0.002,23 

GO TO 5060 

POKE 23693,56: BORDER 7: CLEAR : LOAD ""SCREENS$ 

SAVE "TOKIO"CODE 16384 ,PEEK 23627+256*XPEEK 23628-16382: GO TO 1 





IF INKEYF<>"" THEN GD TO 9999 
CLS 
PRINT AT 10,10;"+ARA LA CINTA" 


PAUSE 200 


EES 

BORDER 0 

PAFER 0 

ELS 

INE. 7? 

FRINT AT 10,4;¡"PULSA UNA TECLA": PAUSE 0: CLS BEEP 0.3,20 
LET x=3 

LET y=10 

LET de=0 

LET d+=0 

LET p=0 

LET ti=300 

LET en=20 

PRINT INE 4: BRIGHT 1;4T 16,03" 

PRINT  INK 4; BRIGHT 1¡AT 21,035" 

FOR a=16 TO 21 

FRINT  INK 43 BRIGHT 1;AT a,O¿" " 

PRINT INK 43 BRIGHT 15;AT as31:;” * 

NEXT a 

PRINTO INK 23AT 15,03% "3 CINE 2501 1594913 - 
PRINT INK 25AT 0,03" "3 INK 2:AT 0,313" ” 


FRINT-AT 18,2;"+UNTOS." 


THEN LET di=0: LET p=p+10: 


THEN" LET di=0: LET p=p+10: LET ense 


tn BEER 0.02 IQ BEER DU Q2 


ya Y Y a 1 Y rn aman nn mv y a y a 1 NN a a 13 fa 19 13 (2 


Y UVUOUOJVIUITOSO 





310 
320 
5300 
201 
502 
304 
905 
206 
507 
308 
310 
o! 
312 
313 
514 
153 
16 
318 
319 
z ZO 

pr 
524 
aZ6 
240 
3453 
pS, 
570 
700 


¿23 60 SUB 3000: 


800 
8l0 
1000 
30059 
3007 
3010 
3020 
3030 
3032 
3034 
3050 
3060 
3070 
918 bs, 
JIO77 
3080 
3082 
3900 
4000 
4001 
4002 
4003 
4004 
4006 
4008 
4009 
2010 
4012 
4014 
2020 
4030 
24040 
40590 
2052 
4054 
24060 
2070 
4080 
4100 


PRINT AT 
PRINT AT 
LET x1=x= 
FRINT AT 18,105p 

IF en=9 THEN PRINT AT 18,26:"” z 

PRINT AT 18,26;zen 

LET ti=ti-1 

IF ti=99 THEN PRINT AT 19,123" E 
IF ti=92 THEN 'PRINT AT 19,1:2;" e 

PRINT AT 19,12;3t1 

LET yl=y 

BEEP 0.002,12 

LET asd=INT (10XRNL) 

LET awe=PEEK 235360 

LET de=0: LET d+=0 

IF asd=3 AND *>2 THEN  LET de=-1 

IF asd=8 AND *<14 THEN  LET de=1 

IF asd=2 AND y£i29 THEN LET d+=1 

IF asd=7 AND y-2 THEN  LET d+=-1 

IF awe=97? AND x:2 THEN LET de=-1 


18,17; "ENERGIA." 
leia PLEMEO> 2 


IF awe=113' AND x<14 THEN LET de=1 

IF awe=111 AND yi2? THEN LET df=1 

IF awe=112 AND y>*2 THEN LET d$=-1 

LET x*x=x+de 

LET y=y+df 

PRINT AT x1,yl; ¡AT ciriqip? 3" 

PRINT  INK 5:47 x,y; INR 351 x-I.43" ” 


IF INKEY$="m" THEN LET en=en—1: BEEF 0.002,20: 
IF (x=8 OR x=7) AND (y=16 OR y=15) 
LF en=0 THEN G0 TO 5000 

IF ti=0 THEN GO TO 5000 

GO TO 500 

BEEP 0.002,1 

PLOT 10,163: DRAW 119, aa 

PLOT 246,163: DRAW -119, 

PLOT 10,56: DRAW 119,53 

PLOT 245,56: DRAW 119, 53 

PRINT  INK 6:81 8,153"  " 


THEN GO SUB 4000 


BEEP 0.004,34: BEEF 


BEEP 
OVER 
OVER 
OVER 
OVER 
BEEF 
OVER 


0.002,10: BEEP 0.003,20 

1: PLOT 10,163: DRAW 119,-553 
1: PLOT 245,163: DRAW -119,-33 
1: PLOT 10,56: DRAW 119,353 

1: PLOT 245,56: DRAWN -119,33 
0.002,14 

e) 


PRINT AL Bis 

RETURN 

PRINT — INK 6; AT x.y = 

BEEP 0.02,23: BEEP 6. 002, 20: BEEP ú% 004,34 
PRINT  INK 6;AT x-1.y3" ; 

BEEP 0.03,2395!/BEEF.O,. 902,24: BEEP 0.004,38 


PRINT INE 6507 x+l,y;" " 

BEEP 0.04,4: BEEP 0.002,14: BÉEP 0.04,42 
PRINT  INK 2507 x+1,y3" 

BEEP_ 0.02,12: BEEP 0.002,4: BEEP 0.004,42 
PRINT O INE 2507 x,y;" 

BEEP. 0.03,23: BEEF 0.002,1: BEEP 0.004,742 


PRINT INE 2;AT x-1,y5" 

BEEP 0.1,2-12: BEEP 0.003,23 
LET p=p+10 

LET en=en+2 

FRINT AT x.ys" Es 
PRINT AT x-1 ui” Ñ 
PRINT AT us" n: 
LET x= 

LET y=10 

BEEP 0.002,-10 

RETURN 


O.000 n 1 


5000 BEEP 1,20 
5010 CLS 
5020 PRINT AT 10,0:" EL JUEGO HA TERMINADO 
TU PUNTUACION HA SIDO e... ” 
5023 PRINT AT 15,10;P 
5030 BEEP 1,20: BEEP 1,30: BEEP 1,40: BEEP 1,23: BEEF 1,12: BEEP 1,1 
5040 CELS 
5050 PRINT AT 10,5:"*TRA FARTIDA?" 
5060 IF INKEY$="s" THEN GO TO 100 
5070 1F INKEYS$="n" THEN RANDOMIZE USR O 
5080 BEEP 0.002,34 
si00 GO TO 5060 
9998 POKE 23693,56: BORDER 7: CLEAR : LOAD ""SCREEN$ 
9999 SAVE "|RSUS"CODE 16384,PEEK 23627+256%*PEEK 223628-16382: GO TO 1 


TORRETA 





IF INKEY*$25"" THEN GO TO 9999 

CLS 

FRINT AT 10,10:"+ARA- LA CINTA" 

FAUSE 200 

CLS 

100 BORDER 0 

110 PAFER 0 

120 CLS 

130 INK 4 

140 PRINT AT 10,2:"FULSA UNA TECLA": FAUSE O: CLS : BEEP 0.072,20 
150 DIM a(B) 

152 DIM b(B) 

154 DIM c(8) 

156 DIM d(8) 

158 LET a=1 

159 FOR u=1 TO 8 

150 LET atu)=124: LET btu)=92 

161 NEXT u 

162 LET c(1)=-7%: LET c(2)=-120: LET c(3)=-75:3 LET c(4)=0: LET c(5)=75: LET ct6 
=120: LET ec(7)=75: LET c(8)=0 

163 LET d(1)=-75:-LET d(2)=0: LET d(3)=75: LET d(4)=75: LET d(5)=75: LET d(6)=0 
< LET d(7)=-75S:2: LET d(8)=-75 | 
154 LET F=0 

170 LET 1-02 LET £2=31:2 LET_ t3=021 LET t4=2 

172 LET tS=0: LET ul=s 

174 LET tó=20: LET u2=25 

17656 LET 172203 LET u3=s5 

180 LET t8=0: LET- u4=25 

200 FPRINT AT 21,0:"+UNTOS." 

500 PRINT AT 21,8;P 

550 IF INKEY$="0" THEN  LET a=a+1 

560 1F INKEYE="p" THEN LET a=a-1 

590 IF a=1 THEN FPRINT  INK 2541 10,153" " 


0+40mh- 


a 


591 IF a=2 THEN FRINT  INK 2;0T 10,153" " 
592 IF a=3 THEN PRINT INE 2307 10,153" " 
593 1F a=4 THEN- PRINT- INK 2:67 10,153" " 
594 1F a=5 THEN PRINT INE 23871 10,15," " 
595 IF a=6 THEN PRINT  INK 2587 10,153" " 
596 IF a=7 THEN. PRINT  INK 234T 10,15," " 
597 IF a=8 THEN” PRINT  INK 2;AT 10,153" " 
600 IF a>8 THEN LET a=1 


605 BEEFP 0.002,20 
10 


17 Ya 13 fa fa /3 fa fo fa Ya Ya Y) Ya Ya fa 7 ar Ya $ € fa N a Ya fa fa fa $3 $3 


4 Y SY Y Y US WS QQ OY OY yO YY y YU YO Y es 


610 IF a<1 THEN LET a=8 
700 IF INKEY$="m" THEN  BEEP 0.002,30: LET p=p+10: GO SUB 2000 
705 LET d$=INT (17kXRND) 

710 1F df=1 OR df=2 THEN (GO TO 800 
712 IF d*=3 OR df=4 THEN (60 TO 830 
714 IF df=5 OR df=6 THEN GO TO 845 
716 1F d$=7 OR df=8 THEN (60 TO 855 
717 IF d$=9 OR df=10 THEN 60 TO 870 
719 IF d*$=11 OR d$=12 THEN GO TO 900 
720 1F df=13 OR df=14 THEN (60 TO 930 
722 IF df=15 OR df=16 THEN. GO TO 950 
800 LET ti=t1+1 

820 PRINT AT 10,t13" " 

823 IF ti=15 TREN (60 TO 5000 

825 GO TO 1000 

830 LET t2=t2-1 

840 PRINT AT 10,t2," ” 

841 1F t2=15 THEN 60 TO 5000 

843 GO TO 1000 

845 LET t3=t3+1 

850 PRINT AT t3,15," " 

951 IF t3=10 THEN 60 TO 5000 

853 GO TO 1000 

955 LET t4=t4-1 

860 FRINT AT t4,153" " 


863 IF t4=10 THEN. GO TO 3000 

853 60 TO 1000 

S70 LET to=t5+1 

873 LET ui=u1+1 

370 PRINTATTESQOI"" 

893 IF t5=10 THEN 60 TO 5000 

893 60 TO 1000 

900 LET tó=tó6-1 

910 LET u2=u2-1 

920. -PRINT AT tó6suzs”". " 

923 IF tó=10 THEN 60 TO 5000 

923 60 TO 1000 

930. LET t7=t 7-1: LET u3=u3+1 

940 PRINT AT t7.,u33" ” 

943 IF t+t7=10 THEN 60-:*TO 3000 

945 GO TO 1000 

9350 LET t8=t8+1: LET 1u4=1u4-1 

9560 PRINT AT t8,u43" " 

965 IF t8=10 THEN 60 TO 5000 

970.60 TO 1000 

1000 GO TO 500 
2020 PLOT ala) ,bla): DRAN c(a) ,día)? 

2040 OVER 1: PLOT ala) ,b(a): DRAW cía) ,d(a) 
2043 BEEP 0.002,13 

2050 OVER O 

2060 BEEP 0.002,25 . 
2062 LET 1=5: IF a=1. THEN FOR k=19 TO-11- STEP -i2 LET. 'l=1+1: PRINT AT k,l:3" ": 
NEXT ki: LET t7=20: LET uJ=3 > ! 0 

2064 IF a=2 THEN ' FOR k=1 TO 14: PRINT AT-10,k3" "3: NEXT k3 LET ti=0 

2066 IF a=4 THEN FOR k=1 TO 9: PRINT AT k,lo5" ": NEXT k: LET t3=0 

2068 IFta=6 THEN -—FDR k=30 TO 16-STEP —-1: PRINT AT 10,k3 "== NEXT OK2 LET t2=31" 
2070 1F! a=8:-THEN - FOR k=19-T10 11 STEP —-£: PRINT AT k,15S3" "2: -NEXT-k:2 LET-t4=21 
2072 LET 1=4:. 1F a=3_THEN —_EDR_k=0 .TO0.9%: LET..]1=1+1. PRINT.AT Ok. 10 0%: NEXT-Kk-=—LE 
T t5=0: LET ul=5 

2074 LET 1=26: 1F a=S THEN FOR k=0 TO 9: LET 1l=1-1: PRINT AT k,13" ": NEXT kz L 
ET t8=0: LET u4=25 

2078 LETP-1=267 TF a=7 THEN '* FOR "k=20 10 11 SIEP =11 LET"I=1-17 PRINTIAT k,I3" ": 
NEXT k:2 LET tó=20: LET u2=23 

2100 RETURN 

3000 BEEP 1,20 


5010 CLS 
3020 PRINT AT 10,2:" EL JUEGO HA TERMINADO 
NO HAS PODIDO CONTENER EL ATAQUE ENE 


11 


MIGO. 
5030 
ee 
5040 
50S0 
5060 
5070 
5080 
5100 
9998 
9999 


130 
140 
POC) 
152 
133 
15% 
160 
162 
200 
210 
LEN) 
230 
290 
2400 
2410 
420 
S00 
SHO 1 
JO 
OO 
QA 
=Q6 
Y? 
09 
169 
IZÓO 


AS 


527 
529 
530 
535 
340 
550 
690 
700 


REEP 1,1: BEEP 1,3: BEEP 1,4: BEEF 1,5: BEEP 1,6: BEEP 1,7: BEEP 1,9: BEEP 


CLS 

PRINT AT 10,5: "*TRA PARTIDA?" 

IF INKEYSs="s" THEN GU TO 100 

IF INKEY+$="n" THEN  RANDOMIZE USR 0 

BEEP 0.002,30 

GO TO 5060 

POKE 23693,56: BORDER 7: CLEAR : LOAD ""SCREENS 

SAVE "TORRE"CODE 146384,PEEK 2362 7+256XxXPEEK 23628-16382: GO TO 1 


PRECISION 





IF: INKEYF<>"" THEN 60 710/9999 
ES 

PRINT AT 10,10:;"+ARAÁ LA CINTA" 
PAUSE 200 

CELS 

BORDER 0 

FAPFER 0 

CLS5 

INK 5 

PRINTIAST 1033 "PUESA UNA TECLA"S PAUSE 07 LLS 1 BEEP 0,03. 20 
LET x=20 


2 LET-y=22 


LET di=0: LET d2=0 

LET p=0 

LET ti=250 

LET dis=20 

PRINT — INK 2; BRIGHT 1:41 0,05" FUNTOS." 

PRINF >" TAKE Zo BRIGHT IAF Z2103" FIEMPO.” 

FRINT — INK 2: BRIGHT 1;4T 0,17" ISFAROD." 

PLOT 0,149: DORAW 255,0: PLOT 0,148: DRAW 253,0 


INE 35: PLOT 0.1 BRAW- 2325405 PLOTIO,Z: DRKAW 255,0: INK 6 
FOR q=1 TO 100 

PLOT INT (250XRNO) ,SO+INT (1O00XRNDO) 
NEXT q 

LET xi=x 

PRINT AT 0,85p 

IF ti=99 THEN. PRINT AT 2,9:5" e 

IF ti=9 THEN (PRINT AT 2,83" Y 
PRINT AT 2,8:3t1 

IF dis=9 THEN PRINT AT D0,Z2óo3” A 
PRINT AT 0,2ó6:dis 

LET ti=ti1-1 

LET yl=y 

IF INKEY*+="0" AND x>1 THEN  LET x=x-1 
IF INKEYE="p" AND x:<230 THEN LEY x=x+1 
IF INEEY+="q" AND x.1 THEN  LET x==x-4 
IF INEEYi="pw" AND x<2750 THEN LET x=x>+4 


OVER IS PEOTx gis PEBT Ai TE OL PLOT digit PLOT 1igiri PEOT 1 y bRZ 


INR 4: OVER-0O:2 PLOT %+3y2-PLOT-x+1,y5 PLOT x-1,y2 PLOF-+X'5y+t: PEOR =:=yr2 
INE 6 

BEEP 0.002,2 

IF di=1 THEN 'LET d2=0; GO TO 2000 

IF INKEY+="m" THEN LE! d1=1: LEY d2=1:3 LET dis=dis-1: BEEP 0.002,20: BERE 


0.003,30: 60 TO 2000 


800 
12 


PA 1130 THEN-— *BEEP-0.:09,20:5:BEEP 0.5301 560 —T0"5000 


73 fa 3 3 3 fa fa Ya Ya Ya Ya Va Ya Va Ya Ya Ya Ya Y. Ya Ya Y $2 Ya 12 fa 12 13 13 


D US CG US UY DY ES LD SD LP SY ES SY CSL SY SY DY SNS SY NS SC NEO NO NY O A E E 


900 
1000 
2000 
2028 
2030 
2035 
2036 
2037 
2038 
2040 
2050 
2100 
5000 
5010 
5020 


IF dis=0 THEN BEEP 0.09,23: BEEP 0,5,40: GO TU S000 
60 TO 500 

IF d2=1 THEN LET b=22: LET a=x 

OVER 1: PLOT a,b 

LET b=b+4 

IF POINT (a,b)=1 THEN 60 TO 7000 

IF POINT (a,b+1)=1 THEN GU TO 7050 

IF POINT (a,b+2)=1 THEN GO TO 7100 

IF POINT (a,b+3)=1 THEN 60 TO 7150 

OVER O: PLOT a,b 

IF b=138 THEN LET di=0: OVER 1: PLOT a,b: OVER O 
GO TO 710 

BEEP- 1,20 

CLS 

PRINT AT 10,03" EL JUEGO HA TERMINADO 

. PUEDES VOLVER A INTENTARLO. 


SUERTE . y 


5030 
3040 
5050 
5060 
5070 
5080 
3100 
7000 
7040 
7050 
7090 
7100 
7140 
7150 
ZIEZO 
7200 
7210 
220 
7230 

232 
7234 
1236 
72790 
7300 
975 
99799 


0 +4 0 


110 
120 
130 
140 
130 


BEEP 1,1: BEEP 1.35 BEREF 1,5: 
CELS 

PRINT AT 10,5;"*TRA PARTIDA?" 
IF INKEYS="s" THEN GU TO 100 
IF INKEY+="n" THEN RANDOMIZE US5R O 

BEEP 0,002.16 

GD TO 3060 

PLOT OVER 1izas,b: OVER 0 

SO TO 7200 

PLOT - OVER diza,b+i: OVER O 

G0 TO 7200 

PLOT OVER 1ld;zas,b+2: OVER 0 

GO TO 7200 

PLOT OVER 1i¡a,b+3: OVER O 

GO TO 7200 

BEEP-OTO0Z2 720 

LET p=p+10 

BEEP- 0:00, 030 

BEEP 0.003,20 

BEEP 0.003,23 

BEEP 0.003,28 

BEEP 0.003,38 

LET dií=0 

GO TO 2100 

POKE 23693,56: BORDER 7: CLEAR LOAD ""SCREEN> 

SAVE "PRECI"CODNE 16384,PEEKR 2362 7/+2360xXFEEFR 2368-1638: GU TO 1 


BEEP 1,2: BEEFP 1,3: BEEP 1,2: BEEP 1,3 


TIRO AL PATO 


IF INKEYS$<>"" THEN GO TO 9999 
CLS 

PRINT AT 10,10;"+ARA LA CINTA" 
PAUSE 200 

CLS 

BORDER 6 

FAFER 6 

CLS 

INE 1 

PRINT AT 10,5:"PULSA UNA TECLA": PAUSE O: CLS : BEEP 0,03,20 
LET a$=" 





LET b+=" 
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158 
160 
153 
170 
172 
174 
176 
180 
182 
200 
205 
210 
220 
222 
224 
228 
250 
Ln 
500 
303 


209 


LET=0=1 

LET i=30 

LET a=10: LET b=10 

LET x=20 

LET y=15 

LET F=0 

LET DIS=0 

LET di=0 

LET d2=0 

PRINT  INK 2:AT 0,073" 
PRINT — INK 25871 4,03" 
PRINT INE 2;4T 21,03" 
FOR t=1 TO 20 

PRINT  INK 2;94T t,05" " 
PRINT  INK 25AT t,313" " 
NEXT t 

PRINT AT 2,2: "+UNTOS.” 
PRINT AT 2,17: "4 ISFPARD." 
LET x1=x 

PRINT AT 2,10;P 

PRINT AT-2,26:DIS 


510 LET. yl=y 
3520 IF INKEY+$="0" AND y-+1 THEN LET y=y-1 
330 IF INKEY*="p" ANO yi30 THEN  —LET'y=y+1i 
950 PRINT AT x1.yl3" * 
370 PRINT  INK 1;¿AT Xyu;” ” 
3790 IF di=1 THEN: LET d2=0: 60 TO 2000 
600 IF INKEYS$="m" THEN —LET dis=1: LET d2=1: LET dis=dis+1: GO TO 2000 
700 LET o=0+1 
710 IF o=40 THEN LET o=1 
720 PRINT  INK 0O;A8T 6,1ja$(o TO o0+28) 
730 LET-1=1>1 
750 IF is1 THEN |LET i=40 
760 PRINT -INK 3;84T 9,1;b+$(i TO 1+28) 
800 LET al=a- 
810 LET bi=b 
815 LET we=40XRNI 
820 IF wex1i0 AND a>10 THEN LET a=a-1 
825 IF wezx20 AND we*10 AND a<18 THEN LET a=a+1 
830 IF we<30 AND we>20 AND b>1- THEN  LET b=b-1 
835 IF wez40 AND we>230 AND b3í30 THEN  LET b=b+1 
840 FRINT AT al,bijz" " 
8750 PRINT  INK 4;48T a,b¿" ” 
1000 60 TO 500 
2000 1F d2=1 THEN LET as=x-1: LET ad=y 
2010 LET asl=as 
2020 LET adi=ad 
2030 LET as=as-1 
2090 PRINT: AT asl,adiz" " 
2042 IF CODE SCREEN*+ (as,ad)=0 AND as:i6 THEN: GO TO S000 
2044 1F CODE SCREEN$+$ (as,ad)=0 AND as=6 THEN LET p=p+10: BEEP 0.002,20: REEF 0. 
003,26 
2050 PRINT  —INK 2;AT as,ad3" " 
2060 IF -as=5 THEN -LET di=0: PRINT. AT assad¿" ” 
2100 GO TO 610 
3000 BEEP 1,20 
5010 CLS 
SO20 PRINT AT 10,0;"BAS DADO A ALGO QUE NO ES UN 
PATO,FOR ESTO HAS PERDIDO Et JUEGO TER 
MINO. n 
5030 BEEF 1,1: BEEP 1,2: BEEF 1,3: BEEP 1,4: BEEP 1,53: BEEP 1,6 
35040 CLS 
5050 PRINT AT 10,5;"*TRA PARTIDA?" 
5060 IF INKEY*$="s" THEN GU TO 100 
5070 IF INKEY*$="n" THEN RANDOMIZE USR O 
5080 BEEP 0.002,21 
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va ya ya fa fa fa fa fa 3 fa fa (a fa Y fa fa fa fa YN» AV aya $ Ya fa $3 Y 


GUA A AAA A e MAA 


5100 GO TO 5060 | 
9998 POKE 23593,56: BORDER 7: CLEAR : LOAD "SCREENS 
9999 SAVE '"PATO"CODE 16384 ,PEEK 23627+256*PEEK 23628-16382: GM TO 1 


JOYERIA 





1 IF. INKEYEX<>"" THEN. GD TO 9999 
2 LS 
3 PRINT.AT 10,10:;"4ARA LA CINTA" 
4 PAUSE 200 
53 CLS 
90 LET p=0 
IHAEFti=200 
98 PRINT.AT 10,2;"FULSA UNA TECLA": PAUSE 0: CLS.: BEEP 0,3,20 
100 BORIER 7 
110 PAFER 7 
120 PELS 
150 LET x=1 
152 LET y=2 
154 LET asd=0 
156 LETIF=2 
158 EET+3 
154 LET co=0 
200 PRINT  INK 2471 0,07" 
220 PRINT. INK S;¡AT 7,25" * 
DOT TPREINT INK=SIAT dera > 
SAA PRINT-—INE-S530T1128315" 
226 PRINT  INK 5;AT 13,303". " 
250 PRINT.— INK 1546T 21,0;"+UNTOS." 
255 PRINT  INK 1:47 21,173" FIEMPO.” 
500 LET x1=> 
502 PRINT AT 21,8:;P 
504 7EET" TI=T1-1 
505 IF TI=9 THEN PRINT AT 21,255"  ” 
507 1F ti=99 THEN. FRINT AT 21,235” A! 
508 PRINT AT 21,25:T1 
510 LET yi=y 
520 IF INKEYS$="0" THEN LET y=y-1 
530 IF INKEYS$="p" THEN LET y=y+1 
540 IF a THEN. LET x=x-1 
550 IF INKEY$="a" THEN  LET.x=x+1 
560 PRINT AT Xxijuyl3" ” 
562 IF ATTR (X,Y)=61 THEN LET P=P+10: LET CO=CO+1: BEEP 0.02,10: BEEP 0.03,12: 
60 710/1573 
564 IF ATTR (X,Y)=60 THEN GO TO 5000 
565 IF (x=f OR x=9) AND (y=16 OR y=17 OR y=18) THEN GO TO 5000 
570 IF CODE SCREENS (x,y)?=0 THEN  LET x=x1: LET y=yl 
575 LET asd=asd+1: IF asd+1 THEN LET asd=U 
580 IF asd=0 THEN FPRINT  INK 1;4T.x.yi" ” 
590 IF asd=1 THEN PRINT  INK 1;AT x.y" " 
600 PRINT AT 4,1635" as 
620 LET +f=*$+1 
630 IF $=18 THEN LET +$=1 
£40 PRINT. -INK 4:AT f.,16;" de 
700 PRINT AT 9,165” ds 
710 LET 9=9-1 
720 IF g=1 THEN LET g=-18 
15 


730 
800 
700 
910 
1000 
4500 
4510 
45920 


TODAS LAS JOYERIAS . 


PRINT — INK 4507 9,163" " 
IF co=2 THEN PRINT AT 10,23" " 


IF. ti=0-THEN GO TO 5000 
IF co=4 THEN GO TO 4500 
GO TO 500 

BEEP 1,20 

CES 


PRINT AT 10,2;"LO HAS CONSEGUIDO HAS ROBADO 


PASAS 


ARATE PORQUE T1- 


4330 
4540 
4550 
3000 
5010 
3020 


5030 
5040 
5050 
5060 
5070 
5080 
5090 
5100 
9998 
9999 


300 


10 


cd 


LET TI=200-(P/4) 


A OTRAS PREP 


ENES MENOS TIEMPO" 


BEEP 1,20: BEEP 1,30: BEEP 1,23: BEEP 1,24: BEEP 1,25: BEEP 1,45 


GO TO 100 
BEEP 1,12 
ELS 


PRINT AT 10,2;"TE HAN COGIDO SE HAN ACABADO 


TUS ROBOS." 


BEEP 1,1: BEEP 1,3: BEEP 1,5: BEEP 1,7: BEEP 1,2: BEEP 1,4 


CLS: | 
PRINT AT 10,2;"*TRA PARTIDA?" 
IF INKEY$="s" THEN GO TO 90 ¡ 
IF INKEY$="n" THEN RANDOMIZE USR O 
BEEP 0.003,20 

BEEP 0.002,10 

GO TO 5060 

PDKE 23693,56: BORDER 7: CLEAR : 





IF INKEYEZ>"" THEN 60 TO 9999 
LS 

FRINT AT 10,10:"4ARA LA CINTA" 
FAUSE 200 

ELS 

LET p=0 

LET fas=1 | 

PRINT AT 10,5:3"PULSA UNA TECLA" : 
BORIER = : 

FAFER 3 

CELS 

INK 1 

LET x=18 

y=10 

LET a=3 

LET b=3 

LET c=1l0 

LET d=15 

LET ti=200 

FRINT FPAFER 4:AT 19,03" 

PRINT AT 21,0:"+UNTOS." 
PRINT.AT: 21,113" FIEMPO.”" 

PRINT AT 21,23;"eASE." 

PRINT ——INK 7¿AT 0,03" 


PAUSE 


LET x1=x 

PRINT AT 21,8;p 

PRINT AT 21,29:fas 

LET tisti-] 

IF ti=9 THEN PRINT AT 21,18;" : 
IF ti=99 THEN PRINT AT 21,189:;" ” 
PRINT AT. 21,199t1i 

LET yl=y | 


Os 


LOAD ""SCREENS$ 
SAVE "JOYA"CODE 16384 ,PEEK 23627+256XPEEK 23628-162382: 60 TO 1 


ENERGIA 


CES 


BEEP 0.2,10 


1 1) ff fa /3 fo fo /2 fo f2 192 fa Yo fa fa fa fa fo Y Y 1/3/32 13 1/3 13 a $ 


ESO ES DY SY CD LD CS. NC NA PP SAA NS NS NX NS NC NS NY SY NAM SL NS NY Y SO LY NC OS 


1000 
2000 
2010 
35000 
3010 
SOZÓ 


2030 
2037 
2040 
2030 
2060 
2080 
3100 
TO 
RRA 

















IF INKEYS$="0" AND y>1 THEN LET ys=y-1 

IF INKEY$="p" AND y<30 THEN LET y=y+1 
IF INKEYS$="w" AND y<30 THEN LET y=y+2 
IF INKEYS="q" AND y>i THEN LET y=y-2 

PRINT AT x1,ylz3" "3AT xi-1,yiz" " 


IF x=a+1 AND y=b THEN LET p=p+10: BEEP 0.002,10: BEEP O. 003,24: BEEP 0.0 


IF x=c+1 AND y=d THEN. GO TO 23000 

IF yi»y THEN PRINT — INK 2;AT x,y3” Mes INK 2;54T x-—1l.ys” " 
IF ylíiy THEN PRINT  INK 2;AT rs INE 2 AF 
IF yl=y-THEN PRINT  INK 2:47 Xrqs" "3 INK 254T: x—1.ys"” 
BEEP 0.002,15 

LET al=a 

LET bi=b 


“LET a=a+l 


IF a=18 THEN BEEP 0.002,1:-LET a=5: LET b=1+INT (3OXRND) 
PRINT AT al,b13" " 
PRINT  INK 33AT a,b;" " 
LET ci=c 
LET di=d 
LET c=c+1 
IF c=18 THEN BEEP 0.002,5: LET c=5: LET d=1+INT (3OXRND) 
PRINT AT ci,d13" " 
PRINT  INK 1587 c,d;" " 
IF TI=0 THEN GO TO 2000 
GO TO 500 
IF P/FAS>150 THEN GO TO 100 
1F P/FAS<15O THEN G0 TO 5000 
BEEP 1,10 
CLS 
PRINT AT 10,03" EL JUEGO HA TERMINADO 
HAS PERDIDO . " 
BEEP 1,1: BEEP 1,2: BEEP 1,4: BEEP 1,5: BEEP 1,7 
CLS 
PRINT AT 10,5;"*TRA PARTIDA?" 


IF INKEY$="s" THEN GO TO 90 

IF INKEY$="n" THEN RANDOMIZE USR O 
BEEP 0,002,1.3 

GO TO 5050 


POKE 23693,56: BORDER 7: CLEAR : LOAD ""SCREENS 


SAVE "ENERGIA"CODE 15384,PEEK 23627+256k*PEEK 23628-16382: GO TO 1 





A remitir a LIBRERIA SOFTWARE, Bailén, 20-1.* Izq. 28005-Madria. 


a partir del próximo número. 





El importe lo haré efectivo: 
Por giro postaln.? ..............- 
Por talón nominativo adjunto. 
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Deseo suscribirme a los 11 números de LIBRERIA DE SOFTWARE por sólo 2.500 pts. 


7 Contra reembolso a la recepción del primer ejemplar, mas gastos de envío. 






Nombre vapellidos: 7.2 rajas en e ea, es e E E 
O RN A A E 
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A A TN ON rl E CEL TS A A A A E A. E 
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S| PREFIERE SUSCRIBIRSE 


POR TELEFONO. 





¡¡YA PUEDES COMPLETAR TU COLECCION!!! 
DE 


Libreria 







BOLETIN DE PEDIDO PARA NUMEROS ATRASADOS 
HS PE A A A A Y 


Deseo recibir los siguientes números de Librería Software Spectrum al precio de 
375 pesetas cada uno: 


mas: EE A RL AR o 


Nombre y polidos.. O o PS A a aia a E a A 
a A A a y O E O 
Código Postal daras eo AO oa as AA 
cai sc ada ds a a E A TO II 
El importe lo haré eIREn VO: 

3 Por giro postal n EUA A AURA 


Por talón Sminativo adjunto. 


A remitir a Librería. C/. Bailén, 20. 1.? izada. 28005 Madrid. 
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